Profile of (eval 355)[Sub/Quote.pm:3]

Filename	(eval 355)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 133 statements in 555µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
10	3	3	168µs	57.1ms	JSON::Schema::Modern::_assert__vocabulary_classes
1	1	1	12µs	27µs	JSON::Schema::Modern::::BEGIN@7.210 JSON::Schema::Modern::BEGIN@7.210
1	1	1	5µs	16µs	Method::Generate::Accessor::_Generated::BEGIN@24.212
1	1	1	4µs	4µs	Method::Generate::Accessor::_Generated::BEGIN@12.211

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	2µs			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
3	1	0s			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
4	1	1µs			my $isa_check_for__5fvocabulary_5fclasses = ${$_[1]->{"\$isa_check_for__5fvocabulary_5fclasses"}};
5	1	0s			my $default_for__5fvocabulary_5fclasses = ${$_[1]->{"\$default_for__5fvocabulary_5fclasses"}};
6					package JSON::Schema::Modern;
7	2	53µs	2	42µs	# spent 27µs (12+15) within JSON::Schema::Modern::BEGIN@7.210 which was called: # once (12µs+15µs) by Sub::Quote::_clean_eval at line 7 no warnings 'closure'; # spent 27µs making 1 call to JSON::Schema::Modern::BEGIN@7.210 # spent 15µs making 1 call to warnings::unimport
8					# spent 57.1ms (168µs+56.9) within JSON::Schema::Modern::_assert__vocabulary_classes which was called 10 times, avg 5.71ms/call: # 8 times (12µs+0s) by JSON::Schema::Modern::_get_vocabulary_class at line 17 of (eval 353)[Sub/Quote.pm:3], avg 2µs/call # once (153µs+56.9ms) by JSON::Schema::Modern::_get_vocabulary_values at line 17 of (eval 352)[Sub/Quote.pm:3] # once (3µs+0s) by JSON::Schema::Modern::_set_vocabulary_class at line 17 of (eval 354)[Sub/Quote.pm:3] sub _assert__vocabulary_classes {
9					($_QUOTED,$_UNQUOTED) if 0;
10					# BEGIN quote_sub PRELUDE
11					package Method::Generate::Accessor::_Generated;
12					# spent 4µs within Method::Generate::Accessor::_Generated::BEGIN@12.211 which was called: # once (4µs+0s) by Sub::Quote::_clean_eval at line 17 BEGIN {
13	1	1µs			$^H = 2018;
14	1	0s			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
15	1	3µs			%^H = (
16					);
17	1	42µs	1	4µs	} # spent 4µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12.211
18					# END quote_sub PRELUDE
19	10	23µs			do {
20					my $val = exists $_[0]->{"_vocabulary_classes"} ?
21					$_[0]->{"_vocabulary_classes"}
22	10	7µs			: do {
23	1	3µs	1	56.5ms	my $value = $default_for__5fvocabulary_5fclasses->($_[0]); # spent 56.5ms making 1 call to JSON::Schema::Modern::__ANON__[JSON/Schema/Modern.pm:670]
24	79	410µs	44	393µs	# spent 16µs (5+11) within Method::Generate::Accessor::_Generated::BEGIN@24.212 which was called: # once (5µs+11µs) by Sub::Quote::_clean_eval at line 24 do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; (Ref::Util::XS::is_plain_hashref($value)) and do { my $ok = 1; for my $i (values %{$value}) { ($ok = 0, last) unless do { package Type::Tiny; (Ref::Util::XS::is_plain_arrayref($i)) and @{$i} == 2 and (defined($i->[0]) and !ref($i->[0]) and $i->[0] =~ m{\A(?:draft(?:20(?:19\-09\|20\-12)\|7))\z}) and ((do { package Type::Tiny; Types::Standard::_is_class_loaded(do { my $tmp = $i->[1] }) }) && (do { local $_ = $i->[1]; $_->DOES('JSON::Schema::Modern::Vocabulary') })) } }; $ok } }) or Type::Tiny::_failed_check($isa_check_for__5fvocabulary_5fclasses, "HashRef[Tuple[Enum[\"draft7\",\"draft2019-09\",\"draft2020-12\"],__ANON__]]", $value, "attribute_name","_vocabulary_classes","attribute_step","isa check","mgaca","0","varname","\$self->{\"_vocabulary_classes\"}"); $value }; # spent 140µs making 14 calls to Types::Standard::__ANON__[(eval 46)[Types/Standard.pm:48]:16], avg 10µs/call # spent 50µs making 2 calls to JSON::Schema::Modern::Vocabulary::Applicator::DOES, avg 25µs/call # spent 48µs making 2 calls to JSON::Schema::Modern::Vocabulary::Content::DOES, avg 24µs/call # spent 26µs making 2 calls to JSON::Schema::Modern::Vocabulary::MetaData::DOES, avg 13µs/call # spent 21µs making 2 calls to JSON::Schema::Modern::Vocabulary::Validation::DOES, avg 10µs/call # spent 20µs making 2 calls to JSON::Schema::Modern::Vocabulary::Core::DOES, avg 10µs/call # spent 19µs making 2 calls to JSON::Schema::Modern::Vocabulary::FormatAnnotation::DOES, avg 10µs/call # spent 19µs making 14 calls to Type::Tiny::CORE:match, avg 1µs/call # spent 16µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@24.212 # spent 13µs making 1 call to JSON::Schema::Modern::Vocabulary::Unevaluated::DOES # spent 11µs making 1 call to warnings::unimport # spent 10µs making 1 call to JSON::Schema::Modern::Vocabulary::FormatAssertion::DOES
25	1	1µs			$_[0]->{"_vocabulary_classes"} = $value
26					}
27					;
28	10	0s			exists $_[0]->{"_vocabulary_classes"}
29					or Carp::croak(q{Attempted to access '}."_vocabulary_classes".q{' but it is not set});
30	10	2µs			$val;
31					}
32					}
33	1	1µs			$$_UNQUOTED = \&_assert__vocabulary_classes;
34					}
35	1	6µs			1;
36
37					;